home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / database / dutch_fn / leng.c < prev    next >
Text File  |  1988-06-22  |  1KB  |  50 lines
  1. /*********
  2. * Author   : Jean-Pierre van Melis, Helmond, The Netherlands
  3. * Compiled : with Microsoft C 5.1    (cl /c /AL /Zl /Oailt /FPa /Gs blank.c)
  4. * Object   : can only be used in conjunction with Clipper summer '87
  5. * source   : is not tested with earlier versions of Clipper
  6.  
  7.              Jean-Pierre van Melis
  8.              Bleriotstraat 2
  9.              5703 HT  Helmond
  10.              The Netherlands
  11. *
  12. * LENG.C
  13. *
  14. *  Syntax: LENG( <expC> )
  15. *  Return: Length of string without trailing blanks
  16. *
  17. *********/
  18.  
  19. #include "jplib.h"
  20.  
  21. CLIPPER leng()
  22. {
  23.  
  24.    byte  *inp;
  25.    int   length;
  26.    int   i = 0;
  27.  
  28.    if ( PCOUNT == 1 && ISCHAR(1))
  29.    {
  30.       inp    = _parc(1);
  31.  
  32.       /* count trailing spaces */
  33.       for(length=_parclen(1)-1;inp[length]==SPACEC; length--)
  34.          ;
  35.  
  36.       if (length > 0)               /* if trimmed length is greater than 1 */
  37.          while(inp[i]==SPACEC)      /* count first spaces */
  38.             i++;
  39.  
  40.       _retni(length-i+1);
  41.  
  42.    }
  43.    else
  44.       _retni(0);
  45.  
  46.    return;
  47. }
  48. /* eof */
  49.  
  50.